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Cursor's New Years gift to you is getting this issue in your mailbox prior 
to the 4th of July. Bally has invited the Cursor staff to the "International 
Winter Consumer Electronics Show" being held in Las Vegas in January. Bally 
is planning a private show in their Hilton suite. We will tell you all about 
it in Issue #2. 
We have included three programs in this issue, two of which are totally the 
design (for better or worse) of Fred Cornett (Plastic Puzzle & Life Synthesis 
Model), the other program is stolen from another publication, and has been 
rewritten for the Bally (for the purpose of better understanding conversion 
from one BASIC to another): "Electric Bill Analysis" is a translated version 
of "POWER" by Karen S. Wolfe (written in North Star BASIC) in the October 
issue of BYTE. I have had many, many requests for a tutorial regarding the 
translation of printed programs written in other versions of BASIC, 


For those of you desiring the ability to translate other BASIC programs to 
Bally Tiny BASIC, I can only offer 2 bits of advice: 


1. You must fully understand all Tiny BASIC statements before attempting 
any translation. 
2. You must fully understand the BASIC statement. you wish to translate. 














Since most of us don't have the ability to work interchangeably with other 
BASIC versions, I would, without reservation, recommend the purchase of 

"The Basic Handbook" by David A. Lien. This book explains the smal sale. of 
most statements utilized by all major versions of BASIC. 


ELELIRIG BILL 


This program utilizes the "internal calculator", which renders an answer 
with 16 digit accuracy in the following formats NNNNNNNN.NNNNNNNN 


This routine uses 18 string variables G(A), to load a number. The instruct- 
ion is: $F@(A),@(B),@(C) Where F=Function (+x-+) 

A=Beginning location of number to be manipulated 

B=Beginning location of number doing the manipulating 

C=Beginning location of Answer 
I have bypassed the proper utilization of the internal calculator routine by 
formatting, instead of leading zero suppression, etc. I did not use overflow 
or sign indicators as they would not apply. Also, I did not make any attempt 
to save bytes as I felt it was unnecessary. Enough space is left for consid- 
erable expansion for those so desirous. 







When prompted for § Amount of electric bill, please input the Total of all 
* amounts, tax, fees, etc. 


NOTE: You may have noticed that the Tiny BASIC statements used in this 
newsletter differ in format from the statements you are used to 
using. Do not alter the statements to conform to what you think 
the statement should look like; such as adding final quotes, etc., 
the statements herein use a shorthand Tiny Basic which will work! 


























ELECTRIC BILL ANALYSIS 
PROGRAM EXPLANATION 


1-163 Input Info 
188 Subtract beginning reading at @(18) from ending reading at &(f) 
and place answer (KW Hours) at @(54) 
Divide amount of bill at @(36) by KW Hours at (54) and place 
answer (Price per KW Hour) at @(72) 
268 Clear registers at: ee 2(18), @(36), @(54) 
278 Clear registers at: @(9f), @(148), @(126), (144) 
354-384 Input info 
392 Multiply wattage at &(Z) by Hours af Appliance Use at (126) and 
Place answer (Watt/Hours) at ©(36) 
Clear &(f), @(18), and forces "1fgg" at O(f) 
395 Divide Watt/Hours at &(36) by "1220" at G(f) and place answer 
(Kilowatt/Hours) at @(18) 
446 Multiply Kilowatt/Hours at @(18) by Price per KW/Hour at (72) and 
place answer at @(54) 
417-483 Print Answers 


NOTE: All listings printed in Cursor utilize the same Special Character Set 
As your "ARCADE", In other words: What you see is what you type, i.e., 
Bally Multiplication Sign=Lower Case X on listing (5x4). 








AUTOMATIC RUN AFTER LOADING TAPE: When you are ready to save a program on 

tape; instead of typing sPRINTs; LIST 

type: NT=1ls:sPRINT sLIST s;PRINT "sRETURN 3TV=1L33;NT=3;RUN 

Do not press go until tape is recording. After you press GO, the program 
will be saved on tape as before with the exception that upon completion of 
taping, it will print: <:RETURN ;TV=13;NT=3;RUN on tape. When you input the 
program later, it will, upon completion of the load, run the program auto- 
matically even if you forgot to turn off the Tape Recorder. 









ELECTRIC BILL ANALYSIS SZ=630 


1 NT=1 
1@ CLEAR ;FOR AwfTO 143;@(A)=2;NEXT A; BC=18;F Cad 
22 PRINT "THIS PROGRAM ANALYZES ~ POWER USAGE AND COST 


48 FOR A=1TO 26fA3NEXT A 
128 GOSUB 582;PRINT "INPUT ENDING METER READINGFROM ELECTRIC BILL (XXXxXxX) 
122 FOR E=12TO BSTEP —1;@(E)=KP;TV=@(E);NEXT E 
142 GOSUB SMZ;PRINT “INPUT BEGINNING METER";PRINT "READING FROM BILL (XXXxXX) 
142 FOR Be3ZTO 26STEP -1;@(B)=KP;TV=@(B)sNEXT B 
168 GOSUB SMZ;PRINT "INPUT $ AMOUNT OF BILL (XXX.XX) 
162 FOR Tx46TO 42STEP -lsIF T=43PRINT ".", 
163 @(T)sKP;TV=@(T)sNEXT T 
184 $-@(2), a(18), @(54); $22(36), 2(54), @(72) 
262 FOR A=71TO PSTEP -1; ;G(A)=B; NEXT A 
278 FOR A=l149TO SPSTEP mi Q(A)=A; NEXT A;CLEAR 
358 GOSUB SMZ;PRINT "SELECT AN APPLIANCE AND INPUT WATTAGE (XXX) 
362 PRINT :FOR WelfTO S8STEP -1;@(W)=KP;TV=8(W)sNEXT W 
372 GOSUB SZZ;PRINT "INPUT THE ESTIMATED TOTAL HOURS OF APPLIANCE USE 
375 PRINT "DURING BILLING PERIOD (XXXX) 
3BZ FOR H=l37TO 134STEP —13;@(H)=sKP;TV=@(H)sNEXT H 
392 $x@(2),@(126),8(36);FOR A=35TO ASTEP -1;8(A)=afsNEXT A3@(11)=49 
395 $£0(36) ,@(f),@(18) 
402 $x@(18),@8(72) ,@(54) 
416 CLEAR 
426 PRINT "YOU PAY PER KWHOURS$Z.", 
422 FOR C=79TO 76STEP -1;TV=G(C); NEXT C3PRINT 
438 PRINT 
44f PRINT "APPLIANCE USED ",;FOR K=29TO 24STEP -1;IF K=25PRINT ".", 
445 TV=x@(K);NEXT KsPRINT ;PRINT "KW HOURS OF POWER 
458 PRINT 
468 PRINT "BILLING PERIOD COST OF THAT POWER USEAGE=§$", 
465 FOR Dx64TO 6QSTEP -1;IF D=61PRINT ".", 
466 TV=@(D)s;NEXT DsPRINT 
472 PRINT 
488 PRINT “COST PER EST. HOUR'S USE =$2.", 
482 $2£6(54),@(126) ,@(188) 
483 FOR Z=115TO LL2STEP -1;TV=@(Z)s;NEXT Z 
498 PRINT " PRESS ANY NUMBER", 
495 A=KP;GOTO 262 
S02 CLEAR ;PRINT "PLEASE PRECEDE WITH ZEROES*;PRINT ;RETURN 
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BYTESAVING HINTS: 


By now, some of you have input the preceding program and noticed that the 
number of bytes remaining (obtained by PRINT SZ) on your machine is eons 
what less than we have stated. 


A good habit to use whenever you desire to print an instruction or comment 
on screen, is to make as much use of the command words as possible (RUN, 
CLEAR, INPUT, ETC.). These command words occupy 1 byte total versus 1 byte 
per letter if input letter by letter. 


PLASTIC PUZZLE 


This program was challange for me, as I needed one more program to show 
the versatility of the PX function. I would imagine the game is just as 
boring as the 50¢ plastic version. The non=programmer will look at the 
display and say "Big deal!". The programmer will ask how the letter being 
moved knows where the blank space is. So, I have printed this program to 
offer a sharp little PX Routine and not for the abject thrill of playing 
the game, 


For those of you that are unfamiliar with this game, the object is to move 
the letters around until they are in alphabetical order. One project you 
programmers might consider, is writing an end to the game when the letters 
are all in proper order, 


PLASTIC PUZZLE PROGRAM EXPLANATION: 
2 Set Colors & divide screen 
1gJ- 30 Creat game board 
5Z- 7M Selects random letters(A-0 no duplicates)& places them on-screen. 
1ff- 148 Input letter to be moved 
15f- 225 Go to location of letter to be moved and see if an open square 
is adjacent to it (not diagonal) 
227 If open square exists inside game board adjacent to letter to be 
moved=clear square of letter to be moved 
229 Same as 227 except creates moved letter in new square 
234 If no open square exists adjacent to letter to be moved (inside 
game board) Illegal Move-Restart sequence 
1fZ1 Clears left side of screen 
1202-1218 Positive Pixel Search parameters 


PLASTIC PUZZLE By: F. Cornett SZ=982 
1 CLEAR 
2 NT=338(2) 289 5h(1)e89 38 (2) e16358(3) 163; BCmB9sFCuel13a8(9)=28 
5 CelffP;DeC+1 
1f CLEAR :BOX 54,20,41,41,1;FOR AwlTO 33;3@(A)=H;NEXT A 
28 FOR Yx3S5TO SSTEP -18;FOR Xm39TO 69STEP 1 
32 BOX X,¥,9,9,2;CXmX+1;CYaHY 
5@ A=RND (16);IF @(A)GOTO SZ 
52 IF Awl6TV232;@(A)=X3@(A+16)=Y¥3GOTO 7H 
62 TVmA+64;3@(A)=X3G(A+16)=Y 
TZ NEXT X;NEXT Y 
148 GOSUB C;GOSUB D;PRINT "INPUT LETTER";PRINT "YOU WISH TO ";PRINT "MOVE USING"; 
PRINT "KN(1) & TR(1) 
112 CY¥e83CXa—-71;NT=f 
128 L=eKN(1)2174+723TVaLl 
138 IF TR(1JGOTO 152 
148 GOTO 118 
150 NT=1;Xx2O@(L-64) 3 YaB(L-48) 
200 Ga sHafsS=aY;EuhsFeX+18;GOSUB 12072 
210 S=Y=1fsF=xx;GOSUB 1262 
220 S=Y;FmX-18;GOSUB 1202 
225 SwY+l0;FexX;GOSUB 1207 
227 IF E<GIF GIF H@(16)=X3@(32)mY3CXeXsCYaY 3 TVea2 
229 IF E<4IF GIF H@(L=-64)=G38(L=48 )sh;CX=G+1;CY¥eH;TV=xL;GOTO 149 
232 GOSUB D;GOSUB C;PRINT "ILLEGAL";PRINT "MOVE"; PRINT sPRINT 3;GOTO 128 
1020 CXm=-773 CY =4f; RETURN 
1081 BOX -23, 0,114,868,2;RETURN 
1268 IF PX(F-2,543 )EmE +13 RETURN 
1205 IF PX(F+2,5+3)EmE+1; RETURN 
1286 IF PX(F+2,S5=3 )EsE+1; RETURN 
1207 IF PX(F,S=3)EmE+13RETURN 
1208 IF PX(Fe2,S=3)EmE+1; RETURN 
1299 IF (F<39)+(F>70)+(S>35)+(5<5 )ExE +13 RETURN 
1218 GeF sHeS; RETURN 
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The following article has been printed here due to the patience and lar- 
gess of Ed Mulholland, who lacking any formal education in this field, 
beat his way through all the printed matter available to finally arrive 
bearing a functional full sized ASCII Keyboard interfaced to the Arcade 
(Why don't the "professionals" among us ever share information?). This 
wearied warrior still awaited yet one more gruesome test of his patience; 
that of instructing the Cursor Editor what the hell this all meant. Whew!! 


We hawe it on good authority (Mrs. Cornett) that the Cursor Editor is a 
functional idiot when it comes to putting things together. Therefore, we 
very strongly suggest you run right out and buy "TV Typewriter Cookbook" 
by Don Lancaster. This book contains rather complete instructions & 
information on such things as — Baud—Rate Generators--Keyboard Encoders-- 
PROM=--RAM--Serial Interface UARTs-=-Bus Organization--What to look for when 
buying a keyboard=--Radio Data Links--Modems--Printers, etc. If you aren't 
an old hand at wiring up your own projects = buy Lancasters book before 
you do anything else. 


As Ed Mulholland points out - there are a number of ways of adding a key- 
board, I wrote Jerry Tindle (who has also added a keyboard) over a month 

ago and have not, as yet, received an answer. If you have a keyboard or 

any other device, please drop the Cursor a line and let us know something 
about it! 


FULL SIZE ASCII KEYBOARD 
By: Edmund Mulholland 


The basic idea is to provide serial data from a keyboard through the 
Cassette Interface at 150 baud and then read this data with a :INPUT. 


I used an AY51013A UART board sold by Electronics Systems because I was 
not sure what I might need to develop this system, and also because it 
provides various methods of manipulating. For those who want to save 
some money, my schematic is shown without this additional circuitry. The 
keyboard encoder is an AY53600. I chose this encoder because it has a ~ 
latched output rather than a continuous stream of data. You release this 
data by taking a negative strobe from Pin 16 of the encoder and applying 
to Pin 23 of the UART. I used a .lmf capacitor for a@ longer key debounce 
time, and used the clock from the interface to synchronize the UART.,. It 
may be possible to use other methods that would work; but, being anxious 
to use the keyboard, I left it this way. Also, a TPST switch is used to 
isolate the data entries. The addition of the 2.2K and 22K resistors 
eliminate the need for the switch, but it would not hurt to have a method 
of isolating these signals. 


I have not been able to get the inputs y\PAUSE G0+10 HALT. As you can 
see, these characters are only a minor inconvenience and can be added to 
the program later. Also, other characters are available as new graphic 

. symbols, 


The cost of the keyboard for this project is approximately $50.00, not 
including a power supply. I chose to use a separate power supply because 
of not knowing how much power the Bally unit could provide, and also be- 
cause I neek power for future additions. My choice was JAMECO, the JE200 
and JE205,. If this is your choice, pay close attention to the instructions 
on winding the toriodal transformer. This addition increases the cost to 
approximately $80.00. If the Electronics Systems board (with parts) is 
used, the cost is approximately 9110. By shopping the surplus stores and 
maybe using a smaller power supply, you can cut your cost to approximately 
$50.00 or less. . 


Only a few keys need to be remarked from a standard keyboard, and this is 
left up to the user to decide, You can check the truth table and decide 
what you want. 
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AYS=3600 TRUTH TABLE Keep in mind, Bally uses 
PIN 17 18 IN eight bits, with the MSB 


if .222 a #4 2s & FP 
z : a ; se bit always a zero. This 
a truth table works only 
1 | Box] > + RETURN 1 ; 
when wired as shown;other- 
by 3 J * = wise, you will get differ- 
TO | INPUT IF GOTO ent results. The Control 
<- L E key is not used, but some 
rs L NEXT users may want to try 
a F SPACE i various ideas. 
FOR SPACE z 
T S 
PRINT S 
> Y H B > * 
6 TSE! 4 cea : 
& U J N < P 
7 | STEP} RUN | GOTO < |RETUR 
I K M ? * < ( 
CLEAR| NEXT} IF | / = ( 
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7 Anyone wanting additional 


May write: 


Mr. Edmund Mulholland 
Route 4, Box 424 H 
Ne. Wilkesboro, NC 28659 


You must include a stamped 
self-addressed envelope if 
you desire a reply! 
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33 
If you decide to build 





( 0 L C < | @ : ener 
32 2 this project, please let 
Ke {SRsHS AF =e ee the Cursor know of your 
PIN 17 18 19 #20 22 22 23 24 + +.25 26 PIN results and problems. 


LIFE SYNTHESIS MODEL 


The rules are Simple: | 
l. Survival. Every cell with 2 or 3 adjacent cells survives for the. 
next generation. 
2. Death. Each cell with 4 or more neighbors dies from overpopulation. 
Every cell with 1 neighbor or none dies from isolation. 
3. Births. Each empty cell adjacent to exactly 3 live cells is a 
birth cell. 


Using the grid supplied, plot the location of your starter colony. Best 
results are obtained by keeping the cells in one area. After inputting 
the starter colony, the computer will search the complete field, taking 
approximately 25 minutes. This will occur only during generation #1, on 
subsequent generations, the computer will only search those quadrants 
where life exists. Please note the "search locators" on the top and left 
side of the field border. The locators. will show you where the computer 
is currently performing a search. 





I know of a few areas where a minimal amount of memory could be saved, 
such as substituting a variable for GOTO (5f) or (61), but I would like 
very much to know if any of you can speed up the search process without 
sacrificing any of the search parameters, 


NOTE: When inputting a program, pay strict attention to spacing, etc. 

In many of the programs printed in Cursor, there are not more than a 
couple of bytes left. If you have input spaces that are not shown in the 
listing, the program may not run. Also, please make sure you proofread 
what you input!! 90% of the time an individual thinks a program contains 
glitches, they are operator errors, EXAMPLE: 

198 IF A=BC=A Will not work. You cannot put two characters of the same 

type together! 
11f IF A=B@(1)=A Will work! 
120 IF A=BIF C=DGOTO 14 Will Work 
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LIFE SYNTHESIS MODEL PROGRAM EXPLANATION 


ee tener I I SE I EC AE EC SES LIS SEIDEL 


l= 15 
2¢ 
2l= 22 
32 
4fg—- 49 


5Sl- 62 
8f- 81 
1fg- 123 
11f- 12g 
132 

522 

512 

602 

612 

615= 632 
1A 00-1082 


2002 
20128 


4 
4a 43 





4 > ne ee Se OO eo ——— i 





Input locations of Starter Colony 

Put up field border if 

Put up grid marks 

Put up starter colony 

Sets Horizontal Search Parameters (using Black pixel locators 
at 615-632) 

Sets Vertical search parameters 

Sets Colors and splits screen 

Puts up search locators 

Determines if Pixel is black or white-sends to 

appropriate subroutine 

Erases search locators if current search has ended 

If Pixel is white-Send to subroutine that checks status of 

adjacent pixel locations 

Creates new cell & updates "Birth" counte changes color to 

green and back 

If pixel is black-Sends to subroutine that checks status of 

adjacent: pixel locations 

Erases cell and updates "Deaths" count-changes color to 

red and back 

Sets black pixel locators 

Adjacent pixel search 

Updates "Population" count 

If Population=% Terminates program 


SAMPLE STARTER COLONY 


1-X=45 Y=31l 
2=X=45 Y=37 
3—X=46 Y=3l 
4=-X=46 Y=29 
5=-X=46 Y=28 
6—=X=47 Y=29 
7-X=48 Y=31l 
B=-X=48 Y=3f 
GeX=49 Y=3l1 


LONG AWAITED NEW BALLY 
GAME CARTRIDGES ARE 

Y pri! 
2008 Space Invaders 
3005 Bally Pin (ball) 


Both cartridges should 
prove to be extremely 
popular, as they are 
commercial "Penny Arcade" 
quality. Fantastic!!!! 
For those unable to find 
the cartridges: Send 
check or money order for 
$28.30 per cartridge 


4 
se eS 2 Oe ee (includes tax, postage) 
ial to: Seebree's Computing 
STARTER COLONY : 456 Granite, Monrovia, CA 
LOCATOR GRID 91016 
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SYNTHESIS MODEL By: Fred Cornett SZ=44 


&(9)=5B5 CLEAR ;PRINT "LIFE SYNTHESIS 
Baf;D-Bi2=1;E=563 Bets T=f;H =335Q=B3 TaD Saf; Ref; Le ; Mah sNaf; Pads Omg 
PRINT sPRINT "INPUT (Xx, YytoR 9 
FOR AclTO 9;PRINT ly "CELL €", ‘ Saar "X"B(A) 
‘INPUT “era ( Asia); NEXT Re W=118 
CLEAR ;BOX 56,1 1;BOX 6, 19,46,46,2 
FOR Gsi6TO 768 grep ths aBOx G,41,1,ly.43BOX = -4,1,1,13;NEXT G 
FOR Us~TO 4fSTEP 10;BOX 33,U,1,1, “{ BOX 78,U,1l,)1,1;NEXT U 
CXm=77;CY¥m-16;PRINT #1, "POPULATION@", P 
FOR AwlTO 9;BOX @(A),@(A+1f),1,1,1;NEXT A 
IF QIF T E=36;F=75;GOTO 5 
IF QIF TeZIF S Ex36;F=66;GOTO Sf 
IF QIF Tx@IF SefIF R E=36; Fe56:GOTO Sf 
IF QIF TaPIF SePIF RafE=36;Fe46;GOTO Sf 
IF Qe@IF RIF T Ew46sFe75;GOTO SP 
IF QefIF RIF SIF TefE=46;F=66;GOTO So 
IF QeMIF RIF S=xBIF TxBE=46; FuS63 GOTO sg 
IF G=fIF AafIF SIF T'E=56;Fe75;GOTO 5Z 
IF Q=B1F RefIF SeBIF T E=66;F=75;GOTO SZ 
IF QeSIF Re@IF SIF TafE=56;F=66 
aca; a, 2 Saf: Taf 
IF LIF 0 H=39;Ief;GOTO 62 
IF LIF OefIF N H=393Iml1@;GOTO 61 
IF LIF OmPIF Ne@IF M H=39sIm20;GOTO Gl 
IF LIF O=@IF N=@IF MaBlimad z1=38;60TO 61 
IF LefIF MIF O H=3f3I=f;GOT 
IF LefIF MIF NIF O=BH=3Q; hs — 61 
IF LafIF MIF Ne@IF OmfH=30;1=28;GOTO 62 
IF LOPIF M=afIF NIF O H=2; iad; gor 61 
IF L=fIF MofIF NePIF O H=ifs;Ief;GOTO 61 
IF L=fIF MePIF NIF O=zfH=2f 3 Tak Z 
L=JsM=f3N=f ;0=8 
ty o116,6(1)=11 “te S(2)=1283 &(3)=x118 
BC=116;FCall4;&(9)=2T 
CY¥=40;PRINT aE aeNT 
CY¥=32;PRINT #1,"GENERATION #",Z 
FOR XsETD F;FOR YsHTO ISTEP -1 
BOX X,43,1,1,13BOX 31,Y,1,1,1 
IF PX(X, ‘yegtosua 520° 
IF PX(X,Y)GOSUB 622 
NEXT Y;BOX 31,19,1,48,2;NEXT X;BOX 55,43,48,1,2;Z=Z+1;GOTO 4g 


| CoP; GOSUB ipod 


IF C=38(2)=147;8&(3)=147;BOX X jBeB+1;CY¥=24; PRINT #1, "BIRTHS=", B; 

Caf; P=P4+1;8(2)mW;8(3)=W;GOSUB * 6aB; retin 

Caf; RETURN 

C=S;GOSUB 1602 

IF (C>3)+(C¢2)&(2)=9058 a(3 

Cabs P=Pa138(2)=W3&(3)=W; 
F X<46Q=1 

If X<S6IF X>45Rel 


) 
GOSUB 5na0, Re RN 


Yr IF X<66IF X>55S=1 


IF X>65T=1 
IF ¥>29Le1 
IF YO19IF Y¥<31M=1 
IF YDOIF Y¥<21N=1 
IF ¥<110=1 


B C=Z;RETURN 


Caf; IF PX(X,Ya1)CeC+1 
TE PX (kel. Yo }oaleL 
IF PX(X=1,Y)C=C+1 

IF PX(Xe1,¥+1)CeC+1 
IF PX(X, ¥+1)C=C+1 

IF PX(X41, Y+1)C=aC+1 
IF PX(X+l1, Y)C=C4+1 

IF jel ae Yel)C=C+1 
RETU 


Nios mepsbbacbarnpree INIyth; Batnt a} EAR MINATED®; STOP CURSOR PAGE 8 


RETURN 


CURSOR 


F. 


Cornett, Ed. 


6115 Clybourn #25 
North Hollywood, CA 91606 


FIRST CLASS 


3)=9f;BOX X, 1,2;D=D+1;CY=16;PRINT #1,"DEATHS=",D; 























